pak::pak("rstudio/pins-r")

library(pins)
(bb <- board_url(c(crypto = "https://raw.githubusercontent.com/Robot-Wealth/r-quant-recipes/master/quantifying-combining-alphas/binance_perp_daily.csv")))
bb %>%
  pin_download("crypto") %>%
  read.csv(check.names = FALSE) %>%
  tibble::as_tibble()

library(pins)
c("penguins" = "https://colorado.rstudio.com/rsc/example_pin/") %>%
  board_url() %>%
  pin_read("penguins")

# Identify the board
board <-
  board_url(c("penguins" = "https://colorado.rstudio.com/rsc/example_pin/"))
# Read the shared data
board %>%
  pin_read("penguins")

library(pins)
board2 <- board_temp(versioned = TRUE)
board2 %>% pin_write(1:5, name = "x", type = "rds")
board2 %>% pin_write(2:6, name = "x", type = "rds")
board2 %>% pin_write(3:7, name = "x", type = "rds")
# see all versions
board2 %>% pin_versions("x")

pin_meta()
pin_search()
pin_meta()
pin_delete()
pin_browse()